home *** CD-ROM | disk | FTP | other *** search
- /* Dice: dcc -l0 -mD dpk.o HiResScreen.c -o HiResScreen
- **
- ** Opens a screen of 640x256 pixels in HIRES LACED mode. You can even try
- ** SuperHiRes (SHIRES) if you change the appropriate flag in the Screen object.
- */
-
- #include <proto/dpkernel.h>
-
- BYTE *ProgName = "High-Resolution Screen";
- BYTE *ProgAuthor = "Paul Manias";
- BYTE *ProgDate = "9 December 1997";
- BYTE *ProgCopyright = "DreamWorld Productions (c) 1996-1997. Freely distributable.";
- BYTE *ProgShort = "High resolution screen display.";
-
- void main(void)
- {
- struct GScreen *Screen;
- struct Picture *pic;
- struct JoyData *joydata;
- struct FileName PicFile = { ID_FILENAME, "GMS:demos/data/PIC.Pic640x256" };
-
- if (pic = Load(&PicFile, ID_PICTURE)) {
- Screen = Get(ID_SCREEN);
- CopyStructure(pic,Screen);
- Screen->MemPtr1 = pic->Bitmap->Data;
- Screen->Width = 640;
- Screen->Height = 256;
- Screen->ScrMode = HIRES|LACED;
-
- if (joydata = Init(Get(ID_JOYDATA),NULL)) {
-
- if (Init(Screen,NULL)) {
-
- Display(Screen);
-
- while (!(joydata->Buttons & JD_LMB)) {
- WaitAVBL();
- Query(joydata);
- }
-
- Free(Screen);
- }
- Free(joydata);
- }
- Free(pic);
- }
- }
-
-